VERSION 5.00
Begin VB.Form ClientAddressForm 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   9000
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   12000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   9000
   ScaleWidth      =   12000
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin VCT.TouchLocationList TouchLocationList1 
      Height          =   8175
      Left            =   480
      TabIndex        =   4
      Top             =   720
      Width           =   9015
      _ExtentX        =   15901
      _ExtentY        =   14420
   End
   Begin VB.CommandButton Cancel_Button 
      BackColor       =   &H008080FF&
      Caption         =   "Cancel"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   20.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   9720
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   7800
      Width           =   1935
   End
   Begin VB.CommandButton Next_Button 
      Caption         =   "Next"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   20.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   9720
      TabIndex        =   1
      Top             =   5400
      Width           =   1935
   End
   Begin VB.CommandButton Clear_Button 
      Caption         =   "Clear"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   20.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   9720
      TabIndex        =   0
      Top             =   6600
      Width           =   1935
   End
   Begin VB.Label Label1 
      BackColor       =   &H80000009&
      Caption         =   "Client's Area of Residence"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   20.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   480
      TabIndex        =   3
      Top             =   120
      Width           =   6255
   End
End
Attribute VB_Name = "ClientAddressForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Cancel_Button_Click()
   VCTStageForm.Show
   Unload Me
End Sub

Private Sub Clear_Button_Click()
   Clear_Button.Enabled = False
   Next_Button.Enabled = False
   TouchLocationList1.Reset_Location_List
End Sub

Private Sub Form_Load()
   Next_Button.Enabled = False
   Clear_Button.Enabled = False
   TouchLocationList1.ShowCityLocations = True

'   LocationList.AddItem "Air Wing"
'   LocationList.AddItem "Area 2"
'   LocationList.AddItem "Area 3"
'   LocationList.AddItem "Area 9"
'   LocationList.AddItem "Area 10"
'   LocationList.AddItem "Area 11"
'   LocationList.AddItem "Area 12"
'   LocationList.AddItem "Area 14"
'   LocationList.AddItem "Area 15"
'   LocationList.AddItem "Area 18 A"
'   LocationList.AddItem "Area 18 B"
'   LocationList.AddItem "Area 22"
'   LocationList.AddItem "Area 22B"
'   LocationList.AddItem "Area 22 (SOS)"
'   LocationList.AddItem "Area 23"
'   LocationList.AddItem "Area 24"
'   LocationList.AddItem "Area 25 A"
'   LocationList.AddItem "Area 25 B"
'   LocationList.AddItem "Area 25 C"
'   LocationList.AddItem "Area 30"
'   LocationList.AddItem "Area 33"
'   LocationList.AddItem "Area 35"
'   LocationList.AddItem "Area 36"
'   LocationList.AddItem "Area 43"
'   LocationList.AddItem "Area 44"
'   LocationList.AddItem "Area 47"
'   LocationList.AddItem "Area 49"
'   LocationList.AddItem "Biwi (A8)"
'   LocationList.AddItem "Bunda College"
'   LocationList.AddItem "Bwaila"
'   LocationList.AddItem "CCDC"
'   LocationList.AddItem "Chingwirizano"
'   LocationList.AddItem "Chilinde I (A21)"
'   LocationList.AddItem "Chilinde II (A21)"
'   LocationList.AddItem "Chimoka"
'   LocationList.AddItem "Chinsapo I (A46)"
'   LocationList.AddItem "Chinsapo II (A46)"
'   LocationList.AddItem "Chipasula"
'   LocationList.AddItem "Chitedze"
'   LocationList.AddItem "Chiuzira"
'   LocationList.AddItem "Falls"
'   LocationList.AddItem "Gulliver (A49)"
'   LocationList.AddItem "Kaliyeka I"
'   LocationList.AddItem "Kaliyeka II"
'   LocationList.AddItem "Kamuzu Barracks"
'   LocationList.AddItem "Kanengo"
'   LocationList.AddItem "Kaondo"
'   LocationList.AddItem "Kaphiri"
'   LocationList.AddItem "Kauma"
'   LocationList.AddItem "Kawale I (A4)"
'   LocationList.AddItem "Kawale II (A4)"
'   LocationList.AddItem "Likuni"
'   LocationList.AddItem "Lingadzi"
'   LocationList.AddItem "Lumbadzi"
'   LocationList.AddItem "Malangalanga Admarc"
'   LocationList.AddItem "Maula Prison"
'   LocationList.AddItem "Mbabzi"
'   LocationList.AddItem "Mchesi (A8)"
'   LocationList.AddItem "Mchezi"
'   LocationList.AddItem "Mgona"
'   LocationList.AddItem "Mtandire"
'   LocationList.AddItem "Mtsiliza"
'   LocationList.AddItem "Mwenyekondo"
'   LocationList.AddItem "Nat. Res. College"
'   LocationList.AddItem "Nanjiri"
'   LocationList.AddItem "Nathenje"
'   LocationList.AddItem "Ngwenya"
'   LocationList.AddItem "Piasani"
'   LocationList.AddItem "Police Mobile Force"
'   LocationList.AddItem "Phwetekere"
'   LocationList.AddItem "Santi"
'   LocationList.AddItem "Shire (A49)"
'   LocationList.AddItem "SOS Village"
'   LocationList.AddItem "State House"
'
End Sub

Private Sub Next_Button_Click()
'   If P_RETURNV = "0" Then
'      CoupleCodeForm.Show
'   Else
'      PartnerNCCForm.Show
'   End If
   If RETURNV = "0" Then
      AddPartnerForm.Show
   Else
      NewClientCodeForm.Show
   End If
   Unload Me
End Sub

Private Sub TouchLocationList1_click()
   Clear_Button.Enabled = True
End Sub

Private Sub TouchLocationList1_LocationSet()
   ClientAddress = TouchLocationList1.Location
   Next_Button.Enabled = True
End Sub
